home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
os2
/
rexxgdb2.zip
/
Thread5.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1997-08-10
|
588b
|
20 lines
/* rexx */
sql5 = 'select * from staff where id <= 80'
say '5 Started' time('L')
call time 'R'
retcode = g2selectdata(sql5, data., 9999)
say 'DATA.0 =' data.0
say 'DATA.0.0 =' data.0.0
if retcode = 0 | retcode = 100 then
do r = 1 to data.0
do c = 1 to data.0.0
say 'DATA.'r'.'c '=' data.r.c ' length='length(data.r.c)
end
end
say '5 SelectData SQLCODE' retcode
say '5 length ' length(returned)
say '5 G2SQLCODE ' g2sqlcode
say '5 G2LONGRESULT ' g2longresult' length='length(g2longresult)
say '5 Ended' time('L')
return